home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / telegard / chtca003.zip / CHATCALL.SCR < prev    next >
Text File  |  1996-02-11  |  5KB  |  175 lines
  1. VARIABLE WANTTOCHAT BOOLEAN NO                     
  2. VARIABLE ANSWER BOOLEAN "YES"
  3. VARIABLE TRUE BOOLEAN YES
  4. VARIABLE MYCHAT STRING
  5. VARIABLE CHATNO INTEGER
  6. VARIABLE RETRYCNT INTEGER
  7. VARIABLE QUIT1 STRING "/Q^M"
  8. VARIABLE QUIT2 STRING "/q^M"
  9. VARIABLE EMPTY STRING ""
  10.  
  11. LABEL CHATNODE
  12. LABEL CHAT1
  13. LABEL CHAT2
  14. LABEL CHATTING
  15. LABEL CHATANSWER
  16. LABEL WANTCHAT
  17. LABEL DISPLAYCHAT
  18. LABEL GETINPUT
  19. LABEL NEWCHAT
  20. LABEL CHATINSTRUCTIONS
  21.  
  22. GOTO CHATANSWER
  23.  
  24. :NEWCHAT
  25. CLS
  26. MENU NW
  27. PUT "Enter the node number to chat with: "
  28. GET CHATNO
  29. IF "$CHATNO$" "0"
  30.    ENDSCRIPT
  31. ENDIF
  32. IF "$CHATNO$" "~CN"
  33.    ENDSCRIPT
  34. ENDIF
  35. FILECREATE C:\bbs\TEMP$CHATNO$\CHAT.~CN
  36. FILEPUT "~UH wishes to chat with you!"
  37. FILECLOSE
  38. MENU NM $CHATNO$; ~UH wishes to chat with you.  Press /C from any menu to chat.
  39. :CHATINSTRUCTIONS
  40. KEYPRESSED PUTNL "~SP"
  41. KEYPRESSED GOTO CHATINSTRUCTIONS
  42. CLS
  43. PUTNL "`02    Welcome to CHATCALL, an inter-node chat script for Telegard 3.0!"
  44. PUTNL "`02There are several commands that you can enter by pressing the / key at the"
  45. PUTNL "`02beginning of the line.  Pressing /? and then enter will get you a list of" 
  46. PUTNL "`02commands that may be used while in CHATCALL.  If you enjoy this inter-node"
  47. PUTNL "`02chat feature, then be sure to thank `09Tim Strike `02who made it possible by"
  48. PUTNL "`02improving Telegards SCRIPT language.
  49. NL
  50. PUTNL "`02To QUIT chat, simply press /Q at the beginning of the line"
  51. NL
  52. PUTNL "`02Enjoy this multi-node chat being done ALL via `09Telegards Scripts"
  53. PUTNL "`02__________________________________________________________________"
  54. NL
  55. GOTO CHATTING
  56.  
  57.  
  58. :CHATANSWER
  59.  
  60. FILEEXIST C:\bbs\TEMP~CN\CHAT.1 GOTO CHAT1
  61. FILEEXIST C:\bbs\TEMP~CN\CHAT.2 GOTO CHAT2
  62. GOTO NEWCHAT
  63.  
  64. :CHAT1
  65. FILEDISPLAY C:\bbs\TEMP~CN\CHAT.1
  66. CHATNO "1"
  67. GOTO CHATNODE
  68.  
  69. :CHAT2
  70. FILEDISPLAY C:\bbs\TEMP~CN\CHAT.2
  71. CHATNO "2"
  72. GOTO CHATNODE
  73.  
  74. :CHATNODE
  75. YESNO WANTTOCHAT "Do you want to chat? (Y/N) [Y]"
  76. IF "$WANTTOCHAT$" "$ANSWER$"
  77.    CLS
  78.    PUTNL "`02    Welcome to CHATCALL, an inter-node chat script for Telegard 3.0!"
  79.    PUTNL "`02There are several commands that you can enter by pressing the / key at the"
  80.    PUTNL "`02beginning of the line.  Pressing /? and then enter will get you a list of" 
  81.    PUTNL "`02commands that may be used while in CHATCALL.  If you enjoy this inter-node"
  82.    PUTNL "`02chat feature, then be sure to thank `09Tim Strike `02who made it possible by"
  83.    PUTNL "`02improving Telegards SCRIPT language.
  84.    NL
  85.    PUTNL "`02To QUIT chat, simply press /Q at the beginning of the line"
  86.    NL
  87.    PUTNL "`02Enjoy this multi-node chat being done ALL via `09Telegards Scripts"
  88.    PUTNL "`02__________________________________________________________________"
  89.    NL
  90.    GOTO WANTCHAT
  91. ENDIF
  92. GOTO NEWCHAT
  93.  
  94. :WANTCHAT
  95. FILEERASE C:\bbs\TEMP~CN\CHAT.$CHATNO$
  96. :CHATTING
  97. FILEEXIST C:\bbs\TEMP~CN\CHATTEXT.$CHATNO$ goto DISPLAYCHAT
  98.  
  99. :GETINPUT
  100. MYCHAT ""
  101. KEYPRESSED PUTNL "`07"
  102. KEYPRESSED GET MYCHAT "~UH> " 75 TRUE PICTURE
  103. IF "$MYCHAT$" "/Q"
  104.    FILEEXIST C:\bbs\TEMP$CHATNO$\CHAT.~CN FILEERASE C:\bbs\TEMP$CHATNO$\CHAT.~CN
  105.    FILEEXIST C:\bbs\TEMP$CHATNO$\CHATTEXT.~CN FILEERASE C:\bbs\TEMP$CHATNO$\CHATTEXT.~CN
  106.    MENU NM $CHATNOW$;~UH has left CHAT...
  107.    ENDSCRIPT
  108. ENDIF
  109. IF "$MYCHAT$" "/q"
  110.    FILEEXIST C:\bbs\TEMP$CHATNO$\CHAT.~CN FILEERASE C:\bbs\TEMP$CHATNO$\CHAT.~CN
  111.    FILEEXIST C:\bbs\TEMP$CHATNO$\CHATTEXT.~CN FILEERASE C:\bbs\TEMP$CHATNO$\CHATTEXT.~CN
  112.    MENU NM $CHATNOW$;~UH has left CHAT...
  113.    ENDSCRIPT
  114. ENDIF
  115. IF "$MYCHAT$" "/N"
  116.    GOTO NEWCHAT
  117. ENDIF
  118. IF "$MYCHAT$" "/n"
  119.    GOTO NEWCHAT
  120. ENDIF
  121. IF "$MYCHAT$" "/S"
  122.    MENU NM
  123. ENDIF
  124. IF "$MYCHAT$" "/s"
  125.    MENU NM
  126. ENDIF
  127. IF "$MYCHAT$" "/?"
  128.    CLS
  129.    PUTNL "`02                              Chatcall HELP screen"
  130.    PUTNL "`02          ------------------------------------------------------------"
  131.    NL
  132.    NL
  133.    PUTNL "`07 type `0E/Q `07at the beginning of the line to quit chatting.
  134.    PUTNL "`07 type `0E/N `07at the beginning of the line to start a new chat.
  135.    PUTNL "`07 tyep `0E/S `07at the beginning of the line to SEND a message.
  136.    NL
  137.    PUTNL "`03 Press ANY key to continue"
  138.    :HELPLOOP
  139.    KEYPRESSED GOTO CHATINSTRUCTIONS
  140.    GOTO HELPLOOP
  141. ENDIF
  142.  
  143. RETRYCNT 0
  144. :RETRYCNTR
  145. INCREMENT RETRYCNT
  146. IF "$RETRYCNT$" "100"
  147.    PUTNL "Error sending to node$CHATNO$!"
  148.    ENDSCRIPT
  149. ENDIF
  150. FILEEXIST C:\bbs\TEMP$CHATNO$\CHATREAD.~CN goto RETRYCNTR
  151. IFNOT "$MYCHAT$" "$EMPTY$"
  152.   FILECREATE C:\bbs\TEMP$CHATNO$\CHATTEXT.~CN
  153.   FILEPUT "~UH> $MYCHAT$"
  154.   FILECLOSE
  155. ENDIF
  156. MYCHAT 
  157. GOTO CHATTING
  158.  
  159. ; FILEERASE C:\bbs\TEMP~CN\CHATTEXT.~CN
  160. ; PUTNL "~SP"
  161.  
  162. :DISPLAYCHAT
  163. FILECREATE C:\bbs\TEMP~CN\CHATREAD.~CN
  164. FILECLOSE
  165. PUTNL "`02"
  166. FILEDISPLAY C:\bbs\TEMP~CN\CHATTEXT.$CHATNO$
  167. FILEERASE C:\bbs\TEMP~CN\CHATTEXT.$CHATNO$
  168. FILEERASE C:\bbs\TEMP~CN\CHATREAD.$CHATNO$
  169. GOTO GETINPUT
  170.  
  171. ENDSCRIPT
  172.  
  173.  
  174.  
  175.